home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 6: Level 6 / 17 Bit - Level 6 (1998)(Epic Marketing)[!].iso / quartz / q0867.dms / q0867.adf / AmigaPoint.Install next >
Text File  |  1995-01-21  |  6KB  |  259 lines
  1. ; AmigaPoint version 2.1 (generic) installation script
  2. ; Copyright 1994 Stuart Grier (c).
  3.  
  4.  
  5. (message "Please Note\n-----------\n\nThe mail polling software we are about to install\nwill approximately take up 2 Megs of harddisk space.\n\nPlease check you have sufficient space before proceeding.\n\n")
  6.  
  7. ; first create the working directory in t:
  8. (makedir "T:Point")
  9.  
  10. (working "Copying necessary files to Harddisk")
  11.  
  12. (run "copy AmigaPoint_2.1:c/installer SYS:C")
  13. (run "copy AmigaPoint_2.1:c/lha SYS:C")
  14. (run "copy AmigaPoint_2.1:c/ppmore SYS:C")
  15. (run "copy AmigaPoint_2.1:libs/arp.library SYS:Libs")
  16. (run "copy AmigaPoint_2.1:libs/powerpacker.library SYS:Libs")
  17.  
  18.  
  19. (working "Unarchiving April.lha")
  20.  
  21. (run "AmigaPoint_2.1:c/Lha x April.lha T:Point/")
  22.  
  23. (set aprildir
  24.     (askdir
  25.         (prompt "Where would you like to install April?")
  26.             (help @askdir-help)
  27.                 (default @default-dest)
  28.     )
  29. )
  30.  
  31. ; have to tackon "April otherwise the files wont be copied to their own drawer
  32.  
  33. (set aprildir
  34.   (tackon aprildir "April")
  35. )
  36.  
  37. (set @default-dest aprildir)
  38.  
  39. (copyfiles
  40.     (prompt "Copying Files...")
  41.         (help @copyfiles-help)
  42.             (source "T:point")
  43.                 (dest aprildir)
  44.                   (infos)
  45.                    (all)
  46. )
  47.  
  48.  
  49. ; free up some ram: and assign April:
  50.  
  51. (run "delete t:point/#?")
  52. (makeassign "April" aprildir)
  53.  
  54.  
  55.  
  56. ; find out where to install Mail:
  57.  
  58. (set @default-dest "SYS:")
  59. (set maildir
  60.     (askdir
  61.         (prompt "Where would you like to install Mail:?")
  62.             (help @askdir-help)
  63.                (default @default-dest)
  64.       )
  65. )
  66.  
  67. ; have to tackon "Mail otherwise the files wont be copied to their own drawer
  68. (set maildir
  69.         (tackon maildir "Mail")
  70. )
  71. (set @default-dest maildir)
  72.  
  73.  
  74. ; let user know whats happening and de-arch trapdoor
  75.  
  76. (working "Unarchiving TrapDoor.lzh")
  77. (run "AmigaPoint_2.1:c/Lha x TrapDoor.lzh T:Point/")
  78.  
  79.  
  80. ; make some directories and assignments within Mail:
  81.  
  82.  
  83. (working "Making directories")
  84.  
  85. (makedir maildir (infos))
  86. (makeassign "Mail" maildir)
  87. (makedir "Mail:Inbound" (infos))
  88. (makedir "Mail:Outbound" (infos))
  89. (makedir "Mail:Temp" (infos))
  90. (makedir "Mail:Files" (infos))
  91. (makedir "Mail:Archive" (infos))
  92. (makedir "Mail:Backup" (infos))
  93. (makedir "Mail:TrapDoor" (infos))
  94. (makedir "Mail:Nodelist" (infos))
  95. (makeassign "Nodelist" "Mail:Nodelist")
  96. (makeassign "Inbound" "Mail:Inbound")
  97. (makeassign "Outbound" "Mail:Outbound")
  98. (makeassign "Archive" "Mail:Archive")
  99. (makeassign "Backup" "Mail:Backup")
  100. (makeassign "Files" "Mail:Files")
  101. (makeassign "Temp" "Mail:Temp")
  102.  
  103.  
  104. (run "copy Nodelist.#? Nodelist:")
  105.  
  106.  
  107. ; copy the trapdoor files to Mail:TrapDoor
  108.  
  109. (copyfiles
  110.     (prompt "Copying Files...")
  111.         (help @copyfiles-help)
  112.             (source "T:point")
  113.                 (dest "Mail:TrapDoor")
  114.                    (all)
  115. )
  116.  
  117.  
  118. ; clear out the working dir and release some ram:
  119.  
  120. (run "delete t:point all")
  121.  
  122.  
  123. (makeassign "TrapDoor" "Mail:TrapDoor/Bin")
  124.  
  125. (copylib
  126.         (prompt "Installing traplist.library")
  127.                 (help @copylib-help)
  128.                         (source "Mail:trapdoor/libs/traplist.library")
  129.                                 (dest "Libs:")
  130.                                         (confirm)
  131. )                       
  132.  
  133. (run "Copy SGTrapDoor.config Mail:TrapDoor.cfg")
  134. (run "Copy Fido.cfg Mail:")
  135.         
  136.  
  137. ; First get the FidoNET address.
  138.  
  139.  
  140. (set address
  141.     (askstring
  142.            (prompt "Please enter your FidoNET address.\n\nNB: This number is given to you be the SysOp of the BBS")
  143.             (help "It will be like 2:250/364.4")
  144. ))
  145.  
  146.  
  147. ; now concatenate the address onto the node and assign the result to
  148. ; the address variable
  149.  
  150. (set address
  151.    (cat "NODE "  address "\n\n")
  152. )
  153.  
  154.  
  155. ; now get the Boss's Fido address
  156.  
  157. (set BOSS
  158.     (askstring
  159.          (prompt "Please enter the FidoNET address of the BBS.\n\nNB: This is the same as yours but without the point number")
  160.           (help "It will be similar to 2:250/364")
  161. ))
  162.  
  163. (set BOSS
  164.      (cat "BOSS " BOSS "\n\n")
  165. )
  166.  
  167. (Set CALL
  168.     (askstring
  169.          (prompt "Please enter the phone number of the BBS.\n\n")
  170.           (help "remember to include the STD code.")
  171.  
  172. ))
  173.  
  174. (set CALL
  175.      (cat "CALL " CALL "\n\n")
  176. )
  177.  
  178. ; Get the system name
  179.  
  180. (set name
  181.     (askstring
  182.            (prompt "Please enter the name of your system")
  183.              (help "Eg My_Point or whatever you like...")
  184. ))
  185.  
  186.  
  187. ; Use the system name as the BANNER too
  188.  
  189. (set banner
  190.    (cat "BANNER " "\"" name "\"\n\n")
  191. )
  192.  
  193. (set name
  194.    (cat "NAME " "\"" name "\"\n\n")
  195. )
  196.  
  197.  
  198. ; Get SYSOP
  199.  
  200. (set sysop
  201.     (askstring
  202.            (prompt "Please enter your own name")
  203.              (help "Real names only please :-)")
  204. ))
  205.  
  206. (set sysop
  207.    (cat "SYSOP " "\"" sysop "\"\n\n")
  208. )
  209.  
  210.  
  211. ; Get PASSWORD
  212.  
  213. (set password
  214.     (askstring
  215.            (prompt "Please enter your password\nNB: This is the password given to you by the sysop of the BBS")
  216.                 (help "This is NOT your normal password for logging onto the BBS")
  217. ))
  218.  
  219. (set password
  220.    (cat "PASSWORD " "\"" password "\"\n\n")
  221. )
  222.  
  223.  
  224. ; Now build the new config
  225. ; the append parameters are all the variables we've already collected
  226.  
  227. (textfile
  228.     (dest "Mail:Trapdoor.cfg")
  229.         (append address)
  230.         (append name)
  231.         (append sysop)
  232.         (append password)
  233.         (append boss)
  234.         (append call) 
  235.         (append banner)
  236.         (include "Mail:Trapdoor.cfg")
  237. )
  238.  
  239. (working "Running Traplist")
  240. (run "Mail:TrapDoor/Bin/Traplist")
  241.  
  242. (startup "Amiga Point Installation"
  243. (prompt
  244. "This installation has executed several assign commands. To make them permanent they need to be added to your s:User-Startup file")
  245. (help "The commands are required to help April and Trapdoor run properly.")
  246.  
  247. (command "Assign April: "aprildir"\n")
  248. (command "Assign Mail: "maildir "\n")
  249. (command "Assign TrapDoor: Mail:TrapDoor/Bin\n")
  250. (command "Assign Inbound: Mail:Inbound\n")
  251. (command "Assign Outbound: Mail:Outbound\n")
  252. (command "Assign Archive: Mail:Archive\n")
  253. (command "Assign Backup: Mail:Backup\n")
  254. (command "Assign Files: Mail:Files\n")
  255. (command "Assign Temp: Mail:Temp\n")
  256. (command "Assign Nodelist: Mail:Nodelist\n" )
  257. (command "Path  TrapDoor:\n")
  258. )
  259.